home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / scsi / add / write6.scr < prev    next >
Encoding:
Text File  |  1994-08-23  |  1.3 KB  |  57 lines
  1. * Writes data to the medium.  Cache control bits
  2. * are not provided.
  3.  
  4. @THREAD WRITE6.LOG
  5. @NEWALIAS SADD SCSIADD.GRA
  6. @IMPORT SCSICOM.SCR
  7. SADD DD_OPEN
  8.  
  9. * 0=Async mode, 1=Sync mode
  10. SADD SET MODE=1
  11.  
  12. * Command completion timeout (Secs)
  13. * 0=the assigned value is the default set by the driver,
  14. * -1=the assigned value is infinite.
  15. SADD SET TIMEOUT=0
  16.  
  17. * Name for paramblock
  18. SADD SET LABEL = "READ CAPACITY"
  19.  
  20. SADD READCAPACITY
  21.  
  22. * SADD SET LOGICAL_BLOCK_SIZE = 512
  23. **  SADD SET BUF_CLUSTER_SIZE = 2
  24.  
  25. * 21bit starting logical block addr
  26. SADD SET LOGICAL_BLOCK_ADDR = 30
  27.  
  28. *STARTING LOGICAL BLOCK ADDR (READ)
  29. SADD RESPONSE $PROMPT="STARTING LOGICAL BLK ADDR(READ) : " $RESPONSE=LOGICAL_BLOCK_ADDR $PAUSE=15
  30.  
  31. * No. of contiguous logical blocks to be read
  32. * Zero indicates that 256 logical blocks are to be read
  33. SADD SET NUM_BLOCKS = 1
  34.  
  35. *NO. OF CONTIGOUS LOGICAL BLOCKS TO BE READ
  36. *SADD RESPONSE $PROMPT="ENTER # OF LOGICAL BLOCKS : " $RESPONSE=NUM_BLOCKS $PAUSE=15
  37.  
  38. * Name for paramblock
  39. SADD SET LABEL = "READ6"
  40.  
  41. * Name of the scatgat buffer
  42. SADD SET SCATGAT = ALPHA
  43.  
  44. SADD READ6
  45.  
  46. * Name for paramblock
  47. SADD SET LABEL = "WRITE6"
  48.  
  49. SADD SET LOGICAL_BLOCK_ADDR = 35
  50. *STARTING LOGICAL BLOCK ADDR (WRITE)
  51. SADD RESPONSE $PROMPT="STARTING LOGICAL BLK ADDR(WRITE) : " $RESPONSE=LOGICAL_BLOCK_ADDR $PAUSE=15
  52.  
  53. SADD WRITE6
  54.  
  55. SADD DD_CLOSE
  56.  
  57.